#!/usr/bin/perl
# Copyright (C) 2006, 2007  Stephane Alnet
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 3
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
# 

#
# For more information visit http://carrierclass.net/
#
use strict; use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

use lib '/var/www';
use configuration;

our $dbi_info = "DBI:mysql:database=${configuration::db_name};host=${configuration::db_host}";

sub run
{
    $CGI::DISABLE_UPLOADS = 1;
    $CGI::POST_MAX=1024 * 100;
    
    my $cgi = new CGI;
    my $db  = DBI->connect ($dbi_info,$configuration::db_login,$configuration::db_password)
        or die $DBI::errstr;
    my $class = $cgi->param('_class');
    die unless defined $class;
    my $c = undef;
    my $eval = "use lib '/var/www'; use CCNQ::Proxy::$class; \$c = new CCNQ::Proxy::$class (\$cgi,\$db,\$configuration::sip_challenge)";
    eval $eval;
    die "use $class: $@" if $@;
    die "$class: new failed" unless defined $c;
    
    $c->run();
        
    $db->disconnect;
}

run();
